perm filename MICRO[MUS,LCS] blob sn#269283 filedate 1977-03-12 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	COMMENT: FUNCTION POWER(A,B)=EXP(B*ALOG(A))
C00003 ENDMK
CāŠ—;
COMMENT: FUNCTION POWER(A,B)=EXP(B*ALOG(A));
COMMENT: PRINT POWER(2,3);
COMMENT: FUNCTION MICRO(BASE_FREQ, STEP_NUM, OCT_DIV)
	OCT_DIV = NUMBER OF EQUAL DIVISIONS OF THE OCTAVE.;
	
FUNCTION MICRO(BF, SN, OD);
	BEGIN
	BF ā† BF*EXP(SN/OD * ALOG(2.));
COMMENT:BF ā† BF*2**(SN/OD);
	PRINT BF;
	END;